home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / HyperCard / XCMD Docs / CompileIt! Source Code / WaitKeyDown() < prev    next >
Encoding:
Text File  |  1995-08-19  |  229 b   |  9 lines  |  [TEXT/ttxt]
  1. Global MyEvent:R
  2. function WaitKeyDown
  3.   get GetNextEvent(KeyDownMask,MyEvent)
  4.   repeat until MyEvent.message ≠ NullEvent
  5.     get GetNextEvent(KeyDownMask,MyEvent)
  6.   end repeat
  7.   get MyEvent.CharType[5]
  8.   return it
  9. end WaitKeyDown